perm filename FMZ[1,LCS] blob
sn#305806 filedate 1977-09-19 generic text, type T, neo UTF8
OUTFILE←"FM.MSB";
INSTRUMENT FM;
OSCIL(P4,MAG/P2,P5);
INTRP(P9*P7*MAG,P9*P8*MAG,P10);
OSCIL(U2,P9*MAG,P11);
NOSCIL(U1,U3+P3*MAG,P6);
OUTA←OUTA+U4;
END;
ARRAY F5,F6,F7(512); <F1 is already present.
SEG(F6);0,1 0,60 1,100; <Slope
SEG(F7);0 1 1 100;
SYNTH(F4);99 1 1 180 0 999; <180 DEG. SHIFT
PLAY;FM 0 .1 100 2000 F1 F3 0 15 P3 F7 F4;FINISH;
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 CLAR 0 40
C00003 ENDMK
C⊗;